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Introduction 


1.  Introduction 

LOOP  is  a  Lisp  macro  which  provides  a  programmable  iteration  facility.  The  same  LOOP 
module  operates  compatibly  in  both  Lisp  Machine  Lisp  and  Maclisp  (PDP-10  and  Multics). 
LOOP  was  inspired  by  the  TOR*  facility  of  CLISP  in  InterLispc  however,  it  is  not  compatible 
and  differs  in  several  details. 

The  general  approach  is  that  a  form  introduced  by  the  word  loop  generates  a  single 
program  loop,  into  which  a  large  variety  of  features  can  be  incorporated.  The  loop  consists  of 
some  initialization  (prologue )  code,  a  body  which  may  be  executed  several  times,  and  some  exit 
( epilogue )  code.  Variables  may  be  declared  local  to  the  loop.  The  features  are  concerned  with 
loop  variables,  deciding  when  to  end  the  iteration,  putting  user-written  code  into  the  loop, 
returning  a  value  from  the  construct,  and  iterating  a  variable  through  various  real  or  virtual  sets 
of  values. 

The  loop  form  consists  of  a  series  of  clauses,  each  introduced  by  •  keyword  symbol.  Forms 
appearing  in  or  implied  by  the  clauses  of  a  loop  form  are  classed  as  those  to  be  executed  as 
initialization  code,  body  code,  and/or  exit  code,  but  aside  from  that  they  are  executed  strictly 
in  the  order  implied  by  the  original  composition.  Thus,  just  as  in  ordinary  Lisp  code,  side- 
effects  may  be  used,  and  one  piece  of  code  may  depend  on  following  another  for  its  proper 
operation.  This  is  the  principal  philosophy  difference  from  InterLisp's  TOR*  facility. 

Note  that  loop  forms  are  intended  to  look  like  stylized  English  rather  than  Lisp  code. 
There  is  a  notably  low  density  of  parentheses,  and  many  of  the  keywords  are  accepted  in 
several  synonymous  forms  to  allow  writing  of  more  euphonious  and  grammatical  English.  Some 
find  this  notation  verbose  and  distasteful,  while  others  find  it  flexible  and  convenient  The 
former  are  invited  to  stick  to  do. 

(defun  prlnt-elements-of-llst  (11st-of-e1ements) 

(loop  for  oloment  In  llst-of •elements 
do  (print  element))) 

The  ebove  function  prints  each  element  in  its  argument  which  should  be  a  Hat  It  returns 

nil. 


(defun  extract-interesting-numbers  (start-value  end-value) 

(loop  for  number  from  start-value  to  end-valuo 
whan  ( Interostlng-p  number)  collect  number)) 

The  above  function  takes  two  arguments,  which  should  be  fixnums,  and  returns  a  list  of  all 
the  numbers  in  that  range  (inclusive)  which  satisfy  dm  predicate  intereeting-p. 
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(dafun  f Ind-maxlmm-element  (array) 

(loop  for  1  from  0  below  (cadr  (err ay dins  array)) 
maximize  (foncall  array  1))) 

Find-maximum -alamant  returns  tha  aadava  of  tha  elements  of  to  argument,  a  one¬ 
dimensional  array. 

(dofun  ronovo  (objoct  list) 

(loop  for  olanant  In  list 

uniass  (aqua!  object  alaaant)  coll  act  olanant)) 

Kamova  it  lika  tha  Lisp  function  dalata,  except  dot  it  copiat  dm  tot  rsthar  than 
dastracdvaly  splicing  out  elements. 

(dofun  flnd-frob  (list) 

(loop  for  olanant  In  list 

when  (frobp  olanant)  raturn  olanant 

finally  (arror  /|Frob  not  found  In  11st|  list))) 

This  rutums  tha  first  alamant  of  its  tot  argunant  which  sstisfias  tha  predicate  frobp.  If 
none  is  found,  an  arror  is  generated. 


9.  Clnusos 

Internally,  LOOP  constructs  a  prog  which  includes  van  able  bindings,  pre-iteration 
(initialization)  coda,  post-iteration  (exit)  coda,  tha  body  of  tha  iteration,  and  stepping  of 
variables  of  iteration  to  their  next  values  (which  happens  on  every  iteration  after  executing 
tha  body). 

A  clout*  consists  of  tha  keyword  symbol  and  any  other  Lisp  forms  and  keywords  which 
it  deals  with.  For  example, 

(loop  for  x  In  1  do  (print  x)), 

contains  two  clauses,  'for  x  In  1*  and  'do  (print  x)*.  Certain  of  the  parts  of  the  clausa 
will  be  described  as  being  exprmbiu,  eg.  '(print  x)*  in  tha  above.  An  expression  can  be  a 
single  Lisp  form,  or  a  series  of  forms  implicidy  collected  with  progn.  An  expression  is 
terminated  by  the  next  following  atom,  which  is  taken  to  be  a  keyword.  Thus,  syntax 
allows  only  tha  first  form  in  an  expression  to  be  atomic,  but  makes  misspelled  keywords 
more  easily  detectable. 

Bindings  and  iteration  variable  steppings  may  be  performed  either  sequentially  or  in 
parallel,  which  affects  how  the  stepping  of  one  iteration  variable  may  depend  on  the  value 
of  another.  The  syntax  for  distinguishing  the  two  will  be  described  with  the  corresponding 
clauses.  When  a  set  of  things  is  "in  parallel*,  all  of  tha  bindings  produced  will  be  performed 
in  parallel  by  a  single  lambda  binding.  Subsequent  bindings  will  be  performed  inside  of  that 
binding  environment 
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2i  Iteration-Producing  Clauses 

These  clauses  all  create  a  variable  of  iteration,  which  is  bound  locally  to  die  loop  and  takes 
on  a  new  value  on  each  successive  iteration.  Note  that  if  more  than  one  iteration-producing 
clause  is  used  in  the  same  loop,  several  variables  are  created  which  all  step  together  through 
their  values;  when  any  of  the  iterations  terminates,  the  entire  loop  terminates.  Nested  iterations 
are  not  generated;  for  those,  you  need  a  second  loop  form  in  the  body  of  the  loop. 

All  of  the  iteration-producing  clauses  initially  defined  are  introduced  with  the  keyword  for 
(or  as,  which  is  synonomous).  For  clauses  may  be  clustered  into  groups,  the  variables  of 
iteration  of  which  are  to  be  stepped  in  parallel,  by  introducing  the  additional  clauses  with  and 
instead  of  for  or  as.  For  example,  the  following  iterates  over  the  elements  in  a  list,  and  also 
has  a  variable  for  the  element  from  the  previous  iteration: 

(loop  for  Item  In  list  and  previous-item  ■  /foo  then  Item 
do  ...) 

During  the  first  iteration,  previous-item  has  the  value  foo;  in  subsequent  iterations,  it  has  the 
value  of  item  from  the  previous  iteration.  Note  that  this  would  not  work  if  the  stepping  were 
not  performed  in  parallel. 

The  order  of  evaluation  in  iteration-producing  clauses  is  that  those  expressions  which  are 
only  evaluated  once  are  evaluated  in  order  at  the  beginning  of  the  form,  during  the  variable¬ 
binding  phase,  while  those  expressions  which  are  evaluated  each  time  around  the  loop  are 
evaluated  in  order  in  the  body. 

These  are  the  iteration-producing  clauses.  Optional  parts  are  enclosed  in  curly  brackets. 

for  ear  { data -type)  in  exprl  (by  expr2} 

This  iterates  over  each  of  the  elements  in  the  list  opr/.  If  the  by  subclause  is 
present,  exprl  is  evaluated  once  on  entry  to  the  loop  to  supply  the  function  to  be 
used  to  fetch  successive  sublbts,  instead  of  cdr. 

for  mr  on  exprl  {by  exprl) 

This  is  like  the  previous  for  format,  except  that  ser  is  set  to  successive  tails  of  the 
list  instead  of  successive  elements. 

for  ear  {data-typr)  ■  expr 

On  each  iteration,  expr  is  evaluated  and  Mr  is  set  to  the  result 

for  ear  { data-type)  •  exprl  then  exprl 

Var  is  bound  to  exprl  when  the  loop  is  entered,  and  set  to  exprl  on  all  succeeding 
iterations. 

for  ear  [date-typJ)  from  exprl  {to  exprl)  {by  exprl) 

This  performs  numeric  iteration.  Var  is  initialised  to  exprl,  and  on  each 
succeeding  iteration  is  incremented  by  exprl  (default  1).  If  the  to  phrase  is  given, 
the  iteration  terminates  when  far  becomes  greater  than  exprl.  Each  of  the 
expressions  is  evaluated  only  once,  and  the  to  and  by  phrases  may  be  written  in 
either  order.  Downto  may  be  used  instead  of  to,  in  which  case  ear  is 
decremented  by  the  step  value,  and  the  endtest  is  adjusted  accordingly.  If  below  is 
used  instead  of  to,  or  above  htsteed  of  downto,  the  iteration  will  be  terminated 
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before  expr2  is  reached,  rather  than  after.  Note  that  the  to  variant  appropriate 
for  the  direction  of  stepping  must  be  used  for  the  end  test  to  be  formed 
correctly,  i.e.  the  code  will  not  work  if  egprS  is  negative  or  zero.  If  no  limit 
specifying  clause  is  given,  then  the  direction  of  the  stepping  may  be  specified  as 
being  decreasing  by  using  downfrom  instead  of  from.  Upfront  may  also  be 
used  instead  of  from;  it  forces  the  stepping  direction  to  be  increasing.  The 
data-type  defaults  to  ftxnum. 

for  swr  { data-type)  being  expr  and  it*  path  . 

for  war  {data-type}  being  (each)  path  - 

This  provides  a  user-definable  iteration  facility.  Path  names  the  manner  in  which 
the  iteration  is  to  be  performed.  The  ellipsis  indicates  wham  various  path 
dependent  preposition/ expression  pain  may  appear.  See  the  section  on  Iteration 
Paths  (page  II)  for  complete  documentation. 


12  Bindings 


The  with  keyword  may  be  used  to  establish  initial  bindings,  that  is,  variables  which  are 
local  to  the  loop  but  are  only  set  once,  rather  than  on  each  iteration.  The  with  clause 
looks  like: 

with  wart  { data-type}  {■  expr/} 

{and  war 2  {data-type}  {■  expr 2}}- 

If  no  expr  is  given,  the  variable  is  initialized  to  the  appropriate  value  for  its  data  type, 
usually  nil. 

With  bindings  linked  by  and  are  performed  in  parallel;  those  not  linked  are  performed 
sequentially.  That  is, 

(loop  with  a  ■  (foo)  and  b  ■  (bar)  ...) 
binds  the  variables  like 

((lambda  (a  b)  ...) 

(foo)  (bar)) 

whereas 

(loop  with  a  •  (foo)  with  b  ■  (bar prism  a)  ...) 
binds  the  variables  like 
((lambda  (a) 

((lambda  (b)  ...) 

(bar prime  a))) 

(foo)) 

All  expr' s  in  with  clauses  are  evaluated  in  the  order  they  are  written,  upon  entrance  to  the 
loop  rather  than  where  they  appear  in  the  body.  Thus  good  style  suggests  that  with  clauses 
bo  placed  first  in  the  loop, 

For  binding  more  than  one  variable  with  no  particular  initialization,  one  may  use  the 
construct 

with  wartab/e-Htt  {data-type-bt}  {and  .} 

at  in 
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with  (1  J  k  tl  tZ)  (flxmm  flxntm  flxmm)  ... 
which  is  a  useful  special  case  of  desirvctnring  (page  10). 


2J  Entrance  and  Exit 
initially  expression 

This  puts  expression  into  the  prologue  of  the  iteration.  It  will  be  evaluated  before 
any  other  initialization  code  other  than  the  initial  bindings.  For  the  sake  of  good 
style,  the  initially  clause  should  therefore  be  placed  after  any  with  clauses  but 
before  the  main  body  of  the  loop. 

finally  expression 

This  puts  expression  into  the  epilogue  of  the  loop,  which  is  evaluated  when  the 
iteration  terminates  (other  than  by  an  explicit  return).  For  stylistic  reasons,  then, 
this  clause  should  appear  last  in  the  loop  body.  Note  that  certain  clauses  may 
generate  code  which  terminates  the  iteration  without  running  the  epilogue  code;  this 
behaviour  is  noted  with  those  clauses. 


2.4  Side  Effects 

do  expression 
doing  expression 

Expression  is  evaluated  each  time  through  the  loop. 


IS  Values 

The  following  clauses  accumulate  a  return  value  for  the  iteration  in  some  manner.  The 
general  form  is 

type-of -collection  expr  {date-type)  {into  tor) 

where  type-of -collection  is  a  loop  keyword,  and  expr  is  the  thing  being  ‘accumulated*  somehow. 

If  no  into  is  specified,  then  the  accumulation  will  be  returned  when  the  loop  terminates.  If 

there  is  an  into,  then  when  the  epilogue  of  the  loop  is  reached,  Mr  (a  variable  automatically 
bound  locally  in  the  loop)  will  have  been  set  to  the  accumulated  result  and  may  be  used  by  the 
epilogue  code.  In  this  way,  a  user  may  accumulate  and  somehow  pass  back  multiple  values 
from  a  single  loop,  or  use  them  during  the  loop.  It  b  safe  to  reference  these  variables  during 
the  loop,  but  they  should  not  be  modified  until  the  epilogue  code  of  the  loop  b  reached.  For 
example, 

(loop  for  x  In  list 

collect  (foo  x)  Into  foo-11st 

collect  (bar  x)  Into  bar-list 

collect  (baz  x)  Into  baz-llst 

finally  (raturn  (limb  foo- list  bar-list  baz-llst))) 
which  has  the  same  effect  as 
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(do  ((gOOOl  1  (cdr  gOOOl))  (x)  (foo-llst)  (bar-list)  (baz-llst)) 

((null  gOOOl) 

(list  (nrevorse  foo-llst) 

(nreverso  bar-list) 

(nrevorse  baz-llst))) 

(satq  x  (car  gOOOl)) 

(sotq  foo-llst  (cons  (foo  x)  foo-llst)) 

(sotq  bar- list  (cons  (bar  x)  bar-list)) 

(sotq  baz-llst  (cons  (baz  x)  baz-llst))) 

collect  opr  {into  wo} 
collecting  - 

This  causes  the  values  of  opr  on  each  iteration  to  be  collected  into  a  lot 

nconc  expr  (into  mt) 
nconcing  - 
append  _ 
appending  - 

These  are  like  collect,  but  the  results  are  nconced  or  appended  together  as 
appropriate,  collecting :  mapcar  s  nconcing :  mapcan. 

count  opr  {into  far) 
counting  . 

If  expr  evaluates  non-nil,  a  counter  is  incremented.  The  data-type  is  always 
fixnum. 

sum  expr  { data-type)  {into  Mr) 
summing  - 

Evaluates  expr  on  each  iteration,  and  accumulates  the  sum  of  all  the  values. 
Data-type  defaults  to  number,  which  for  all  practical  purposes  is  notype. 

maximise  expr  {data-typt)  {into  far) 
minimize  ~ 

Computes  the  maximum  (or  minimum)  of  expr  over  all  iterations.  Data-type 
defaults  to  number. 

Not  only  may  there  be  multiple  aeamulatbiu  in  a  loop,  but  a  single  acamtulation  may 
come  from  multiple  places  within  the  tame  loop  farm.  Obviously,  the  types  of  the 
collection  must  be  compatible.  Collect,  nconc,  and  append  may  all  be  mixed,  as  may  sum 
and  count,  and  maximise  and  minimise.  For  example, 

(loop  for  x  In  '(a  b  c)  for  y  In  '((1  2)  (3  4)  (S  6)) 
collect  x 
append  y) 

->  (a  1  2  b  3  4  c  S  6) 
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The  following  computes  the  average  of  the  entries  in  the  list  lbt-ef-frotti 
(loop  for  x  In  Ust-of-frobs 
count  t  into  count-var 
sum  x  Into  sun-var 

finally  (return  (quotient  sms-var  count-var))) 


U  Endtests 

The  following  clauses  may  be  used  to  provide  additional  control  over  when  the  iteration 
gets  terminated,  possibly  causing  exit  code  (due  to  finally)  to  be  performed  and  possibly 
returning  a  value  (e.g*  from  collect). 

while  expr 

If  expr  evaluates  to  nil,  the  loop  is  exited,  performing  exit  code  (if  any),  and 
returning  any  accumulated  value.  The  test  is  placed  in  dm  body  of  the  loop  where 
it  is  written.  It  may  appear  between  sequential  for  clauses. 

until  expr 

Identical  to  while  (not  expr). 

This  may  be  needed,  for  example,  to  step  through  a  strange  data  structure,  at  in 
(loop  for  concept  *  expr  then  (superior-concept  concept) 
until  (eq  concept  [sunasuo-genus]) 

..) 


2.7  Aggregated  Boolean  Tests 


always  expr 

If  expr  evaluates  to  nil,  the  iteration  is  terminated  and  nil  returned;  otherwise,  t 
will  be  returned  when  the  loop  finishes,  after  dm  epilogue  code  (if  any,  at  specified 
with  the  finally  clause)  has  bean  run. 


never  expr 

This  is  like  always  (not  expr). 


thereis  expr 

If  expr  evaluates  non-nil,  then  the  iteration  is  terminsied  and  that  value  is  returned, 
without  running  the  epilogue  code. 


Conditkmdizetion 


I 
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IS  Condi  tionalixation 

Thera  clauses  may  be  mad  to  "condhionalise"  the  following  da urn.  They  asay  precede 
any  of  the  aide-effecting  or  value-producing  datum,  such  aa  do,  collect,  or  always. 

when  expr 
if  expr 

If  apr  evaluate*  to  nil,  the  following  datne  will  be  skipped,  otherwise  not. 
unless  expr 

This  is  equivalent  to  when  (not  opr)). 

Multiple  conditionalization  clause*  may  appear  in  sequence.  If  one  test  fails,  then  any 
following  tests  in  the  immediate  sequence,  and  the  clause  being  conditionatiaad,  are  skipped. 

Multiple  clauses  may  be  conditionalized  under  the  tame  test  by  joining  them  with  and, 
a*  in 

(loop  for  1  frost  a  to  b 

when  (zarop  (remainder  1  3)) 
collect  1  and  do  (print  1)) 

which  returns  a  list  of  all  multiple*  of  3  from  a  to  b  (indusive)  and  prints  them  as  they  are 
being  collected. 

Conditionds  may  be  nested.  For  example, 

(loop  for  1  from  a  to  b 

when  (zerop  (remainder  13)) 
do  (print  1) 

and  whan  (zarop  (remainder  1  2)) 
collect  1) 

returns  a  list  of  all  multiples  of  f  from  a  to  b,  and  prints  all  multiples  of  3  from  at off. 

Useful  with  the  conditionalization  clause*  is  the  return  clausa,  which  causes  an  explicit 
return  of  its  "argument*  as  the  value  of  the  iteration,  bypassing  any  epilogue  coda.  That  is, 
when  exprl  return  apr2 
is  equivalent  to 

when  exprl  do  (return  exprj) 

Conditionalization  of  one  of  the  "aggregated  boolean  value*  clauses  simply  causes  the  test 
which  would  cause  the  iteration  to  terminate  early  not  to  be  performed  unlaw  the  condition 
succeeds.  For  example, 

(loop  for  x  In  1 

when  (slgnlflcant-p  x) 
do  (print  x)  (prlnc  "Is  significant.") 
and  therels  (axtra-speclal-slgnlflcant-p  x)) 
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LOOP  Synonym 


The  format  of  a  conditionalization  and  following  dame  is  typically  something  like 
when  exprl  keyword  expri 

If  expr2  is  the  keyword  it,  then  a  variable  is  generated  to  hold  the  value  of  apr/,  and  that 
variable  gets  substituted  for  expr 2.  Thus,  the  composition 
when  expr  return  it 
is  equivalent  to  the  clause 
thereis  expr 

and  one  may  collect  all  non-null  values  in  an  iteration  by  saying 
when  expression  collect  it 

If  multiple  clauses  are  joined  with  and,  the  it  keyword  may  only  be  used  in  the  first  If 
multiple  whens,  unleases,  and/or  ifs  occur  in  sequence,  the  value  substituted  for  it  will  be 
that  of  the  last  test  performed. 


3.  LOOP  Synonyms 

define-loop-macro  Macro 

(define-loop-macro  keyword) 

may  be  used  to  make  keyword,  a  loop  keyword  (such  as  forX  into  a  LISP  macro  which 
may  introduce  a  loop  form.  For  example,  after  evaluating 
(define- loop-macro  for), 
one  may  now  write  an  iteration  as 

(for  1  frost  l  below  n  do  ...) 


4.  Data  Types 

In  many  of  the  clause  descriptions,  an  optional  doto-type  b  shown.  A  dota-type  in  this 
sense  is  an  atomic  symbol,  and  is  recognizable  as  such  by  LOOP.  LOOP  interfaces  to  a  module 
which  defines  how  declarations  and  initializations  are  to  be  perforated  for  various  data  types. 
However,  it  recognizes  several  types  specially  so  that  that  module  need  not  be  present  in  order 
for  them  to  be  used: 

fixnum 

An  implementation-dependent  limited  range  integer. 

flonum 

An  implementation-dependent  limited  precision  floating  point  number. 

integer 

Any  integer  (no  range  restriction). 

number 

Any  number. 

notype 


Unspecified  type  (U,  anything  else). 


r 
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5.  Dootrtso taring 

Destnctwring  provides  on#  with  tha  ability  to  ’simultaneously’  assign  or  bind  multiple 
variable*  to  components  of  soma  data  structure.  Typically  this  b  used  with  list  structure 
(which  b  tha  only  mode  currently  supported).  For  example, 

(desetq  (Too  .  bar)  '(a  b  c)) 

ha*  the  effect  of  setting  foo  to  a  and  Iter  to  (b  c).  LOOP  only  requires  destructuring 
support  when  one  of  these  patterns  b  supplied  in  place  of  a  variable.  In  addition,  the 
Yinding*  of  a  pattern  to  a  constant  nil  b  so  treated  that  it  requites  no  special  support  code; 
this  allows  the  case 

with  (a  b  c) 

to  work  without  destructuring  support  code. 

One  may  specify  the  data  types  of  the  components  of  a  pattern  by  using  a  corresponding 
pattern  of  the  data  type  keywords  in  place  of  a  single  date  type  keyword.  Thb  syntax 
remains  unambiguous  because  wherever  a  data  type  keyword  b  possible,  a  loop  keyword  b 
the  only  other  possibility.  Thus,  if  one  wants  to  do 
(loop  for  x  In  1 

as  1  flxnuo  ■  (car  x) 
and  J  flxnuo  ■  (cadr  x) 
and  k  flxnuo  ■  (eddr  x) 

...) 

and  no  reference  to  x  is  needed,  one  may  instead  write 

(loop  for  (1  J  .  k)  (flxnuo  flxnuo  .  flxnuo)  In  1  ...) 

To  allow  some  abbreviation  of  the  data  type  pattern,  an  atomic  data  type  component  of  the 
pattern  is  considered  to  state  that  all  components  of  the  corresponding  part  of  the  variable 
pattern  are  of  that  type.  That  is,  the  previous  form  could  be  written  as 
(loop  for  (1  J  .  k)  flxnuo  In  1  ...) 

This  generality  allows  binding  of  multiple  typed  variables  in  a  reasonably  concise  manner,  as 
in 

(loop  with  (a  b  c)  and  (1  J  k)  flxnuo  ...) 
which  binds  a,  b,  and  c  to  nil  and  i,  j,  and  k  to  •  for  use  as  temporaries  during  the 
iteration,  and  declares  i,  j,  and  k  to  be  fixnums  for  the  benefit  of  the  compiler. 

(defun  nap-over-properties  (fn  symbol ) 

(loop  for  (propnaae  propval)  on  (pi  1st  symbol)  by  /cddr 
do  (funcall  fn  symbol  propnaoe  propval))) 

See  also  section  I,  page  17,  which  discusses  support  code  needed  in  various 
implementations. 
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6.  Iteration  Paths 

Iteration  paths  provide  a  mechanism  for  user  extension  of  iteration-producing  clauses.  The 
interface  is  constrained  so  that  the  definition  of  a  path  need  not  depend  on  much  of  the 
internab  of  LOOP.  In  general,  a  path  iteration  has  one  of  the  forms 
for  ear  { data-type)  being  exprO  and  Its  pathname 
[preposition  1  exprl) . . . 

for  ear  { data-type)  being  {each}  pathname  of  exprO 
[prepositionl  exprl) 

The  difference  between  the  two  is  this:  in  the  first,  ear  will  take  on  the  value  of  exprO  the  first 
time  through  the  loop;  but  in  the  second,  it  will  be  the  ‘first  step  along  the  path*.  Pathname  is 
an  atomic  symbol  which  is  defined  as  a  loop  path  function.  The  usage  and  defaulting  of  data¬ 
type  is  up  to  the  path  function.  Any  number  of  preposition/expression  pairs  may  be  present; 
the  prepositions  allowable  for  any  particular  path  are  defined  by  that  path.  The  of  preposition 
has  special  meaning  in  that  it  specifies  the  starting  point  of  the  path;  thus*  the  first  variation 
shown  implicitly  uses  an  of  exprO  ’prepositional  plume*.  To  enhance  readability,  pathnames  are 
usually  defined  in  both  the  singular  and  plural  forms.  To  satisfy  the  anthropomorphic  among 
you,  his,  her,  or  their  may  be  substituted  for  the  its  keyword.  Egocen tricity  is  not  condoned. 

One  pre-defined  path  is  cars;  it  simply  iterates  over  successive  cars  of  its  starting  argument, 
terminating  after  an  atom  b  reached.  For  example, 

(loop  for  x  being  cars  of  '((a  b)  c)  collect  x) 

«>  ((a  b)  a) 

(loop  for  x  being  '((a  b)  c)  and  Its  cars  collect  x) 

•>  (((a  b)  c)  (a  b)  a) 

The  above  forms  are  equivalent  to 

(loop  for  x  ■  (car  '((a  b)  c))  than  (car  x) 
collect  x 
until  (atom  x)) 
and 

(loop  for  x  ■  /((a  b)  c)  then  (car  x) 
collect  x 
until  (atom  x)) 

respectively.  (Note  that  the  atom  check  following  the  body  of  thb  loop  b  part  of  the 
definition  of  the  cars  path,  and  b  not  a  property  of  paths  in  general) 
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By  special  dispensation,  if  a  fotkame  is  not  recognized,  then  the  attachments 
path  will  he  invoked  upon  a  syntactic  transformation  of  die  original  input  This  name 
derives  historically  front  its  original  usage  in  XLMS.  Essentially,  the  loop  fragment 
for  sur  being  e-r  of  apr  . . . 
b  taken  as  if  it  were 

for  sir  being  attachments  In  e-r-*  of  opr  . . . 
and 

for  mt  being  opr  and  Its  e-r  ... 
b  taken  as  if  it  were 

for  ser  being  opr  and  Its  attachments  In  e-r-* 

Thus,  this  "undefined  pathname  hook*  only  works  if  the  attachments  path  b  dadoed.  Note 
also; 

loop-attachment-transformer  Variable 

The  value  of  this  is  a  function  of  one  argument  which  will  be  called  on  *-r  to 
transform  it  into  e-r-*.  If  it  b  nil,  then  a  quote  b  listed  around  the  expression, 
effectively  causing  the  special  attachments  syntax  to  be  an  unevaluated  form  Of  the 
attachments  path  This  b  initially  nil  except  in  an  LMS  envbonawnt,  in  which 
cam  it  b  a  function  which  simply  returns  e-r. 
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This  (action  will  probably  bs  of  interest  only  to  tbOM 


For  dw  porposas  of  discussion,  tba  psnaral 

(lot  iwrteMr ttmtn ft 
(pro*  () 


foni  of  m  tomtom  Mjf  bo 


noxt-loop 


prt-bady-sttpt-2 


for*ioo*^T*** 

•  •  • 

(90  noxt-loop) 
and- loop 


Whan  atoro  than  ono  for  clausa  b  groopod  topathar 
arrangad  to  occur  togpthar  in  paraKaL  Sequentially  am 
and  steps  to  occur  ono  after  anothar,  as  shown  in  tha  d 


A  function  to  generate  coda  for  a  path 
path  function: 


(itfhrH  10  looo  wHh  to 


dafina  loop-path  pathname  or-mama  path-fmttk*  lb 
fany-nuaber-of  data) 

Antitefian  a**  Ma^a 

I  ms  oooftoi  pmn-pmcrmm  10  do  voo  nowor  vor 
aapy  bo  either  a  symbol  or  a  Ibt  of  syatbob. 
cMvontkMis  dotcribod  hibt. 


Tha  handlor  will  bo  callod  with  tha  foOowiag 
path-mama 


ha  padty) 
ladi  a 


Tha  nama  of  dm  path  which 


tha  pete  ftewdon  to  bo 
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prepositional-phrases 

This  is  a  list  with  entries  of  the  form  (preposition  expression),  in  the  order  in 
which  they  were  collected.  This  may  alto  include  some  supplied  implicitly  (04. 
of  phrases,  and  in  phrases  for  attachment  relations);  the  ordering  will  show  the 
order  of  evaluation  which  should  be  followed  for  die  expressions. 

inchahe? 

This  is  t  if  friable  should  have  the  starting  point  of  die  path  as  its  value  on  die 
first  iteration,  nil  otherwise. 

albwed-prepositions 

This  is  the  list  of  allowable  prepositions  declared  for  the  pathname  that  caused 
the  path  function  to  be  invoked.  It  and  data  (immediately  below)  may  be  used 
by  the  path  function  such  that  a  single  function  may  handle  similar  paths. 

data  This  is  the  list  of  ‘data*  declared  for  the  pathname  that  caused  dm  path  function 
to  be  invoked.  It  may,  for  instance,  contain  a  canonicaliaad  pathname,  or  a  set 
of  functions  or  flags  to  aid  the  path  function  in  detarmining  what  to  do.  In  this 
way,  the  same  path  function  may  be  able  to  handle  different  paths. 

The  handler  should  return  a  list  with  the  following  elements: 
variable-binebngs 

This  is  a  list  of  variables  which  need  to  be  bound.  The  entries  in  it  may  be  of 
the  form  variable,  ( variable  expression),  or  ( variable  expression  datatype).  Note 
that  it  is  the  responsibility  of  the  handler  to  make  sure  the  iteration  variable  gets 
bound.  All  of  these  variables  will  be  bound  in  parallel;  thus,  if  initialization  of 
one  depends  on  others,  it  should  be  done  with  a  self  in  the  prologue  form. 

prologae-formt 

This  is  a  list  of  forms  which  should  be  included  in  the  loop  prologue. 

prt-body-endtest 

This  is  a  single  form. 

pre-body-steps 

This  should  be  an  alternating  list  of  variables  and  expressions  to  step  dun,  They 
will  be  stepped  in  parallel  (This  is  like  the  arguments  to  setq;  in  fact,  it  will 
be  used  as  the  arguments  to  psetq.) 

post-body-eadtest 

Like  pre-body-endtest,  but  done  after  the  body,  just  before  starting  the  next 
iteration. 

post-body-steps 

Like  pre-body-steps. 

If  anyone  finds  that  they  need  to  modify  the  main  body  or  dm  epilogue  code,  we  would 
like  to  hear  about  it 


A  qualification  is  in  order  with  respect  to  stepping.  In  order  to  make  parallel  stepping 
work  Drooirhf.  loot  amt  hr  kbit  to  coorco  da  taooiitt  codo  for  dlfifat  for  clmot  to 
act  in  paralleL  Thus,  dm  canonical  place  for  impping  to  occur  is  in  dm  past  body  dpi  the 
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pre-body-steps  is  mainly  useful  when  the  iteration  variable  needs  to  be  set  to  some  function  of 
whatever  is  actually  being  iterated  over.  For  example,  the  LOOP  clause 
for  serin  tbt 

effectively  returns  the  following  elements  for  the  template  (where  tm  is  realty  a  gensymed 
variable  name): 

variable-bindings 

(war  (tm  Af)) 

PrO0Ogm€mJvrm» 

nil 

pre-body-endtest 
(null  tm) 

pre-body-sttps 

(ear  (eat  tm)) 

post-body-endttst 

nil 

post-body-steps 

(tm  (cdr  tm)) 

loop-tequal  token  symboi-or-string 

This  is  the  LOOP  token  comparison  function.  Token  is  any  Lisp  object;  symbol-or-string 
is  the  keyword  it  b  to  be  compared  against.  It  returns  t  if  they  represent  dm  same 
token,  comparing  in  a  manner  appropriate  for  the  implementation.  In  certain 
implementations  loop-tequal  may  be  a  macro. 


Compatibility  with  FOR 
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7.  Compatibility  with  FOB 

LOOP  is  not  truly  compatible  with  FOR  (a  similar  Maclisp  iteration  package).  The 
reason  for  this  is  that  LOOP  has  certain  Ideas'*  about  how  it  should  handle  such  things  as 
order  of  evaluation  and  repaatad  evaluation,  which  are  quite  different  from  FOR’*  simpler 
template  approach.  Many  of  the  keywords,  and  hopefully  all  of  the  functionality,  have  been 
preserved.  In  many  cases,  code  written  with  FOR  will  work  with  LOOP,  although  it 
sometimes  may  not  behave  identically.  For  convenience,  here  is  a  (non-exhaustive)  summary 
of  the  major  differences. 

One  major  difference  is  that  LOOP  is  more  fastidious  about  how  it  orders  the 
assignments  and  endtesta.  Take,  for  example 

(loop  for  n  In  list  as  z  ■  («  n  n)  collect  z) 

In  FOR,  n  would  be  assigned  to  the  car  of  the  list,  then  s  would  be  stepped,  and  then  die 
null  check  would  be  made  on  the  iteration  list  This  means  that  on  the  last  iteration  t  will 
be  assigned  to  (*  nil  nil),  which  might  cause  some  consternation  to  the  Lisp  interpreter.  In 
LOOP,  first  a  null  check  is  made  on  the  list,  then  n  is  set  to  the  car  of  the  list  then  I  b 
stepped. 

Explicit  endtests  (while  and  until)  are  placed  ’where  they  appear*  in  the  iteration 
sequence.  This  obviates  the  repeat-while  and  repeat-until  keywords  of  FOR.  For 
example,  the  FOR  construct 

(for  x  In  1  collect  x  repeat-while  (<  x  IN.)) 
may  be  replaced  by  the  LOOP  construct 

(loop  for  x  In  1  collect  x  while  «  x  2S9.)) 

Note  that  in  the  FOR  case,  the  ordering  of  the  clauses  typically  does  not  matter,  but  in  the 
LOOP  case  it  typically  does.  Thus,  the  ordering  in 
(loop  for  data  ■  (generate-aone-data) 
collect  (f  data) 
while  (test  data)) 

causes  the  result  to  be  a  list  with  at  least  one  element 

LOOP  attempts  to  suppress  repeated  evaluation  where  possible.  Which  expressions  get 
repeatedly  evaluated  b  documented  with  the  corresponding  clauses.  One  significant  example 
where  LOOP  and  FOR  differ  b  in  the  case 

( loop  for  1  from  0  to  expression  . . . ) 

in  which  FOR  evaluates  expression  at  every  iteration,  whereas  LOOP  saves  the  value  at  the 
start  of  the  iteration. 

It  should  be  noted  that  the  conditional ization  clauses  (when,  until,  and  if)  affect  only 
the  following  clause  rather  than  the  Whole  of  the  Vsdy*  of  dm  iteration,  as  would  bo  the 
case  in  FOR. 

Because  it  b  difficult  for  it  to  work  in  all  cooes,  dm  trailing  dame  has  boon  oliatinated. 
Its  effect  may  bo  achieved,  however,  by  tacking 

and  sor  •  inkUtl-vehte  then  mns4nmW 
after  the  for  clause  which  steps  ser-to-bt-trotioi. 
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8.  Dependenole* 

The  LOOP  package  may  require  the  existence  of  other  routines  in  some  implementations. 
For  efficiency  reasons,  LOOP  avoids  producing  lei  in  dm  code  it  generates  unless  it  is 
necessary  for  destructuring  bindings. 

In  the  PDP-10  Maclisp  implementation,  LOOP  uses  f error  to  generate  error  messages: 
ferror  is  part  of  the  FORMAT  package,  end  b  assumed  to  be  autoloadaMe  from  there.  Let, 
which  is  used  to  produce  destructuring  bindings,  and  the  destructuring  version  of  setq  called 
desetq,  which  is  used  only  when  destnicturing  b  used,  are  both  autoloaddble.  The  'parallel 
setq*  mechanism  is  simulated  so  that  psetq  b  not  needed.  Macro  memoixing  b  performed  using 
the  same  facilities  which  def macro  uses,  and  are  autoloadaMe  (and  typically  present  in  most 
environments). 

In  Multics  Maclisp,  LOOP  does  not  presently  call  ferror,  which  does  not  exist  There  b  a 
lot  macro  available  with  destructuring  capability:  it  b  non-standard  (not  part  of  the  Multics  Lisp 
system)  —  for  further  information  contact  the  authors.  Currently,  macro  memoixing  b 
performed  by  rplaca/rplacd  splicing,  unconditionally. 

In  Lisp  Machine  lisp,  ferror  is  used  to  generate  errors.  Thb  b  part  of  the  basic  Lisp 
Machine  environment  At  thb  time,  dastructuring  support  b  not  part  of  the  basic  environment 
although  it  b  available:  contact  either  the  authors  or  the  Lisp  Machine  group  if  you  need  this. 
Macro  memoixing  b  performed  using  displace,  with  the  saaw  effect  as  in  Multics  Maclisp. 
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